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ttt bie GENERATE LIBRARY FORM OF SERVICE VECTOR 
P an ene iat CND ;GENERATE P1 SPACE VECTORS 

TITLE SYS$P1_VECTOR = P1 SYSTEM SERVICE VECTOR DEFINITIONS 

- IDENT *ybe-000" 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONS * ITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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D. N. CUTLER 22-JUN-76 
MODIFIED BY: 


V03-041 LJK0287 Lawrence J. Kenah 27-Jun-1984 
Add R5 to entry mask for SCANEXH system service. 


; v03-040 LMP0239 L. Mark Pilant, 23-Apr-1984 9:21 
Change SCHKPRO from an exec mode service to a kernel mode 
: service. This was made necessary by the SCHKPRO (internal 


entry point) interface change. 


v03-039 MMD0250 neg Dumont 27-Feb-1984 17:49 
od at for SMTACCESS installation specific accessibility 
routine 


v03-038 DASO001 David Solomon 20-F eb-1984 
Japlenent new design for RMS echo SYSSINPUT to SYSSOUTPUT 
(vs yo -019). Echo is now performed by a caller's mode AST 
rout ne declared in RMS\RMSEXRMS. Change INCB/DECB of FAB/RAB 
busy bit to BISB/BICB, now that we have room. 


V03-037 SSA0004 Stan Amway 28-Dec-1983 
For SSETPFM, changed number of parameters from 1 to 4 
and changed entry mask to save R2-R11. 


v03-036 TMKO002 Todd M. Katz 19-Nov-1983 
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ssi er SERVICE vecTonmerITIOhs CHENG SHEE) PTE DEMS PO 


The entry point for SASCTOID can no Longer be reached as a 
erence destination from the executive mode dispatcher. 

* yonpocery entry point (EXE oy Sy has been placed within 
this module, arid a JMP is made from it to the real system 
service entry point (EXESSASCTOID) 


Also, change the entry mask for SYSSTRNLOG, so that R8 is 


now saved. 
v03-035 agp. Todd M 22-0 t-1983 
The entry points for Sf INISH RDB and $SIDTOASC con il 
Longer - reached as branch destinations from cutive 
mode dispatcher. Temporary entry points CEXESEINISH: RDB and 
EXESIDTOASC) have er Laced within this module, and from 
each a JMP is made e real s gyptee service entry points 
(EXESSFINISH_ RDB cel MEXESSIDTOASC) 
V03-034 PRBO254 Paul Beck 15-Sep-1983 14:49 


(1) Correct the way synchronous CJF services are defined. 
(2) Define loadable RUF services. 


V03-033 wMC0029 Wayne Cardoza 31-Au ug~ -1983 
Loadable services should not be pend te ranal y inhibited. 
Add an alternate CHMx argument to LDBSRV 


SOoOooooooooooooooooooooooooooooo 


V03-032 DWT0125 David W. Thiel 22-Aug-1983 
Remove CHECKARGLIST and calis to same. 

V03-031 MKLO167 y Kay Lyon 19-Aug-1983 
Generate ‘setae eeryite voc ter for CUFSGETC Be 

v0O3-030 kBT0578 Keith B. Thompson 8-Aug-1983 
Add parameter to SF ILESCAN 

v03-029 easerrs Ron Schaefer 29-Jul-1983 


d code to detect the AST/non-AST RMS FAB/RAB race 
wet. ot where an RMS operation is initiated while 
the user FAB/RAB is still waiting for completion of 
previous operation. 
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v03-028 wMC0028 Wayne Cardoza 29-Jun-1983 
Add CJF services. 

v03-027 unc O0e7 Wayne Cardoza pore W983 
Make old logical name services ‘‘all mode 


Changes to image activator vectors. 


v03-026 sundese Jeffrey W. H 2-May-1983 
o Loesay macro for vector definitions of loadable 
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V03-025 DMwW4035 DMWalp 26-May-1983 
Intergate new logical name structures. 
v03-024 Lnet9? Mark Pilant, 28-Apr-1983 15:53 


e SCHKPRO an EXEC mode system service to allow examination 
of Slarioee system data structures. 
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ro V04-00 P 
=SEP-19 SYS SRCIEHODSSDSPOMAR:1 O° Gay 
V03-024 RASO147 aefer 28-APR-1983 
Add SFILESCAN. aga” R aa Ro to SSETPRN register mask. 
v03-023 JLV0244 e VanNo 27-APR=-1983 


Add $BRKTHRUW. on e SBRDOCST to all a service. 
SBROCST now uses S$BRKTHRU to do real work 


v03-022 LMP0099 L. Mark Pilant, etemtees 19:15 
Add the S$CHKPRO system service. 

v03-021 ACGO319 Andrew C. Goldstein, 21-Mar-1983 13:51 
Add $GRANTID and SREVOKID services 

V03-020 JLV0234 Jake VanNoy 1=MAR-1983 
Add SBRKTHRU service. 

v03-019 RASO120 Ron Schaefer 25-Feb-1983 


Add support to oche SYSSINPUT to SYSSOUTPUT. 

This involves exam — the return code from RMS for $GET; 
if the special status Mss ECHO aes returned to users) 
is found, then create a RAB on the caller's stack and 
execute a SPUT operation to echo the Line. 

A certain amount of RMS synchronization code was 

shuffled around in order to make room for this. 


v03-018 yee Andrew C. Goldstein, 22-Feb-1983 15:16 
Fix off-by-one in kernel arg vector 

V03-017 RSHU004 Scott 10-Feb-1983 

Added $ASCTOID, SfINiSH "RDB. "nd SIDTOASC to system service List 
V03-016 RNGOO16 Rod N. Gamache 1-Feb-1983 

Added $GETLKI to a th service List 
v03-015 eg 4 Weyne Cardoza 12-Jan-1983 

Put back accidentally deleted space holder for RMS synchronization. 
V03-014 DMW4023 he 4 7-Jan-1983 

Addeu SCRELNT, SCREL SDELLNM and $TRNLNM 
v03-013 KDM0033 Kathleen 0. Morse 13-Dec-1982 


Correct usage of an interlocked Instruction to flush 
the hardware cache queue. 


v03-012 ROW0146 phate h 0. Seer 6-DEC-1982 
Insert routine aeaer s for INHEXCP, CHECKARGLIST, 
and EXeBenODKRNLS (MP PS$CMODKRNLX), Move things around so 
that EXESCMODKRNL (MPSSCMODKRNL) header comments are aeer 
ES PCDORE KNL (RPSSCRODKR NL) and ASTEXIT comments are ne 
ASTEXIT. Make basic kernal-mode .PSECT det inition for YSCMODK 
or MPS$CMOD1 janee ately after executive mode code so that new 
code can be inserted in a way that preserves routine headers 
conditional assembly, and .P ECT defin tions, Backout ROW145, 
and in its place, correct conditional assembly of BGEQU 10$ 
after ACCVI sRET so that it is assembled only for MPCMOD and 
so that it if located Serene ACCVIO_RET. Change PCB address 
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lookup at KERDSP in MPCMOD to use CTL$GL_PCB so that it works 
correctly regardless of which processor executes it. 


v03-011 ROW0145 Ralph 0. Weber 29-NOV-1982 

Mo EXCPTN (and MPSSEXCPTN) to before ASTEXIT (or 
MPSSASTEXIT) in an attempt to make branch destinations in 
EXESCMODKRNL reach. 


v03-010 KDM0030 Kathleen D. Morse 18-Nov-1982 
Add logic to MPCMOD that 6; Lous the primary to execute 
secondary-specific code. without turning into a secondary. 


v03-009 MLJ0099 Martin L. Jack, 20-Oct-1982 19:42 
Complete V03-002 by correcting mode and argument count of 
$SNDJBC and removing temporary stubs. 


V03-008 RIHO001 Richard I. Hustvedt 1-Jun-1982 
Correct handling of AST queue by secondary processor to 
avoid sos inp some AST notifications by incorrectly computing 
PHD$B_ASTLVL. 


v03-007 KOM0018 Kathleen D. Morse 30-Sep-1982 
Add MPSWITCH Logic to create a kernel system service 
dispatcher for the secondary processor of an 11/782. 
V03-006 $TJ3028 Steven T. Jeffreys 26-Sep-1982 
Added SERAPAT system service vector. 
V03-005 DWT0058 David Thiel 11-Aug-1982 
Eliminate use of R2 while waiting for service 
completion. 
V03-004 JWHOO001 jettrey W. Horn 26-Jul-1982 
Add new RMS service, RMSRUHNDLR, an un-documented service 


which acts as the Recovery Unit handler for RMS. 


V03-003 PHLO102 Peter H. Lipman 16-Jul-1982 
Fix mew SYNCH Logic to always return SS$_NORMAL, 
not access I0SB if error from service, and return 
error status from S$SETEF if event flag cluster went away 


v03-002 PHLO101 Peter H. Lipman 17-Jun-1982 
Add $SYNCH system service and fix SQIOW and SENQW to use the 
new code for waiting for the combination of EFN and I0SB 
Improve readability of conditionals. 


Add $GETDVIW, SGETJPIW, SGETSYIW, SSNDJBC, SSNDJBCW, and 
SUPDSECW. ALL the waiting versions use common code. 
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0 .IFTF = s MPSWITCH 

“IF B _NOSYNC 

SRY" MODE SRVNAME , NARG, MASK 

SRV MODE SRVNAME ,NARG,MASK,NOSYNC 

-ENDC ©; MPSWITCH 

TIFT 

~BLKL 2 

in 

SRV MODE SRVNAME , NARG, MASK 

“ENDM  GSYSSRV 


GCOMPSRVB SRVNAME ,REGISTER_MASKL ,PREF IX 
WHERE: 
SRVNAME = SERVICE NAME LESS aT. 


PREFIX ="IF SUPPLIED, THE P 


A 
pesate ER_MASK = SYMBOLIC a tt 
IF OMITTED, ‘'SYS$"' I 


CRO GCOMPSRVB, SRVNAME ,REGMSK PREF IX= 
NDF, m suite 
T $$$000, QUAD 


ies WITCH 
ag BLANK, <SRVNAME>,=- 


eee geerteeeneeee#see8e 
mmnmnrmn a ee PTs me ee POET owe “maa oe IE 


vars 


COMPSTRT= 
NOT BLANK, <REGMSK>,- 
<REGMSK> 


:MPSWITCH 
GCOMPSRVB 
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ty 4 (SYS$, EXES$) 
R MA G10 MASK 


SYS$ 


AR; 1 


GCOMPSRVB - GENERATE COMPOSITE SYSTEM SERVICE ENTRY VECTOR BEGIN 


S 0_MASK 
FIX FOR Ti SERVICE NAME. 
S ASSUMED 


GCOMPSRVE - GENERATE COMPOSITE SYSTEM SERVICE ENTRY VECTOR END 


QUADWORDS - NUMBER OF QUADWORDS TO RESERVE FOR VECTOR 
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MACRO GCOMPSRV 
IF NDF ,MPSW 
IF N MSS 
IF W 


COMPSIZE=.-COMPSTRT 
1 GE ,QUADS*8-COMPSIZE 

-BLKB QUADS *8-COMPS1ZE 

-ERROR : VECTOR EXCEEDS ALLOCATED SIZE ; 

[DSABL LSB 

-ENDC 


-ENDC 
“ENDC =; MPSWITCH 
-ENDM  GCOMPSRVE 


SRVK = GENERATE ENTRY FOR KERNEL MODE SERVICE 
SRVK SRVNAME ,NARG ,MASK 


Sete Ge Ge Ge 


«MACRO SRVK,SRVNAME ,NARG,MASK 
IF NDF ,RMSSWITCH 

IF DF ,MAPSWITCH 
CMKSC_*SRVNAME==KCASCTR 


SOSOCCOOCOOOOOCoOOCOOOOoOoOSooOSoO 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSsssssssssseeS 
COOOCOCOCOCOOCOSSCOCSCOCOSOSOCOOOCCOSOOCOOCOOOOOOOOOOOOO 


OOoooooooo 
WO OO NONE WIN 0 OD NOU EWN O OO NOU EW" 


00 
0 a ;MPSWITCH DEFINED 
0 CMKSC_'SRVNAME=KCASCTR 
0 CHMK #SRVNAME 
00 RET 
0 .PSECT YSCMODKN, BYTE 
00 =KCA 
0 ASSUME NARG LE 127 
00 .BYTE NARG 
0 98 -PSECT YSCMODKX,BYTE 
0 99 =KCASCTR 
0 400 “BYTE 
0 401 PSL.T YSCMODK BYTE 
0 4 é -SIGNED_WORD EXE$S*SRVNAME-KCASE+2 
0 4 “IFTF  ~;MPSWITCH 
404 SRVNAME=KCASCT 
0 405 KCASCTR=KCASCTR¢1 
406 -ENDC ;MPSWITCH 
0 4 8 “ENDM = SRVK 
£16 
iN : SRVE = GENERATE ENTRY FOR EXECUTIVE MODE SERVICE 
413° 
414 .MACRO SRVE, SRVNAME ,NARG, MASK 
415 .IF F ,MPSWITCH 
416 vIF NDF SRMSSWITCH 


a - — 


] 
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CMESC_ ae gaat 7 
CHME #SRVNAME 


a4 139 YSCMODEN BYTE 


A 
ASSUME NARG LE 127 
-BYTE 
~PSECT YSCMODEX BYTE 
-SECASCTR 


MASK 
YSCMODE ,BYTE 
WORD EXES' SRVNAME~ECASE+2 


ECASCTR=EC 
-MPSWITCH 
SRvVE 


$ 
l 
-EN 
ere ty 
N 
N 
MACROS FOR GENERATING RMS SYSTEM VECTORS 
MACRO RMSSRV ane we a gar eREGS=<R2,R3,R4,R5,R6,R7,R8,RI,R10,R11>,— 


GSYSSRV Fd fra R,NARG, <REGS> MASK , NOSYNC 
-ENDM = RMSSRV 


; SRVR = GENERATE ENTRY FOR RMS SERVICE (EXEC MODE) 


7 

: 

0 

1 

E 

mA 

5 

“ 

: 

0 

1 

: 

4 

5 

6 

7 

8 

9 

0 

1 

5 .MACRO SRVR —_ SRVNAME,NARG, MASK, NOSYNC 
é “LE NDF ,MPSWITCH 

7 TIF NDF -RMSSWITCH 

8 CMESC_'SRVNAME= RCAS ASCTR 

9 CHME SSRUNAME 

0 Y 

§ 
4 
5 
6 
7 
8 
9 
; 
: 
4 
5 
5 
5 
; 
: 


IF E 
LIF GT <.+2-RMSSYNC>-127,- 
te tg =RMSWBR ;RESET BRANCH DESTINATION 
BRB RMSSYNC 
oIFF 
, 
“PSECT YSCMODEN,BYTE 
ASSUME NARG LE 127 
oYTE 
-PSECT yy SCRODER BYTE 
MASK 


I. caaeneves 8 
ORD RMS 


$' SAVNANE-RCASE+2 


Amu 2-w ‘n 
ONIQMn34O 


R 
Y 
F 
PS 
I 
N 
A 


RVNAME= 
CASCTR= RCASETRE 1 
‘ ~ENDC 

-ENDM = -§R 


mam 


SOOCOSCOSOSOOOSOSOOSOSOOSOSOOSOOOOOSOOSOSOSOOOSOOOOOOOOOOOOOOOOOOOOOOOOOOO 
SOOSCSCSSOSOSSOSOSOOOSCOOOOOSOSOOOOOSOSOSOSOOSOSOSOOOOSOOOOOSOOOCOOOSOoOO 
SOOSCOCOSOOSSSOSOSSOSOSOSOOSOOSOOOOSOOSOOSOSOOSOOSCOSOSOSOSOOSOOOOOOOOOOOOOOOO 


SOOOCOCOOCOCOCOOCOSOSOOOCOOOCOO OOOO OSCS OOOO OSOO OOOO OOOOOOO 


;MPSWITCH 
RVR 


SYS 


SYSSP1 VECTOR 


~ P1 SYSTEM SERVICE VECTOR DEFINI IONS Ig-SEB-1984 00:40:54 


AX/VMS Macro V04-00 
SYS.SRCICMODSSDSP.MAR; 1 


474; 
ite SRVALL = GENERATE ENTRY FOR ALL MODE SERVICE 
477 ° 
478 .MACRO SRVALL, SRVNAME ,NARG, MASK 
47 NDF ,MP PoWITCH 
480 “IF NDF RMSSWITCH 
o08 4 1 inp a “@#EXES' SRVNAME+2 
000 4 : SENDC =; MPSWITCH 
0000 484 -ENDM = SRVALL 
0000 485 


Page 
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487 -SBTTL Macros for Loadable Services 


. 
| 
LDBSRV = Generate Loadable Service Vector 


: LOBSRV PREFIX,SRVNAME ,MODE ,REGS,SYN_EFN,SYN_IOSB,ALT_CHMX 

: Where: 

: PREFIX - Prefix for system service vector ngry point name 
$ SRVNAME - Service name less any prefix (SYS$,CJF$, etc.) 

: MODE - Mode designator for service (K,E,ALL) 

; REGS - Register save list 

3 SYN_EFN - Event flag argument number for SSYNCH 

: SYN_10SB - I0SB argument number for S$SYNCH 

; ALT_CHMX - Use same CHMx number as this service 


-MACRO LOBSRV, PREFIX, SRVNAME ,MODE ,REGS,SYN_EFN,SYN_IOSB,ALT_CHMX 
TIF NDF ,RMSSWITCH 
IF NOFMPSWITCH 
IF DF,LIBSWITCH 
.PSECT $$$0000,QUAD 
“ALIGN QUAD 
PREFIX" 'SRVNAME: : 
.IF BLANK SYN_EFN 
»BLKL 2 


~ IFF 
-BLKL 4 
7 
-PSECT $$$000,QUAD 
-ALIGN Q 


SS SS SS | SQOOCOTOOOCOOCSOCOOVOOOOOOO 


UAD 

«WORD “M<REGS> 

SRVNAME'_MASK = “M<REGS> 

LVEC. “RODE PREF 1X, SRVNAME ,SYN_EFN,SYN_IOSB,ALT_CHMX 


. END 
-ENDC =; MPSWITCH 
~ENDC =; RMSSWITCH 
-ENDM LOBSRV 


OOoOCOOCCOCOCOOOOSOOCOOSOSOOSOOOOOCOOOOoOOOOSoSS 
aw fw lw be wlll el wl wal olololelolololeololeolelolol oq) 


LVEC_K = Kernel Mode Loadable System Service Vector 
LVEC_K PREFIX,SERVICE,EFN,10SB 


COOOoCoCoOoooooooooooosooooooooooooooosooo 


Sooooo 


.MACRO LVEC_K, PREFIX, SERVICE, EFN, 10SB,ALT_CHMK 
“IF BLANK ALT CHM 
CMKSC_'SERVICE = PREFIX'KCASCTR 


F 
CMKSC_"SERVICE = ALT_CHMK 


CHMK #SERVICE 
IF NOT BLANK EFN 
PUSAL WEF 


PUSHL #10SB 
JMP a#EXESLDB_SYNCH 


SOOOoooo 


WRI OD ODNA UNE AN $9 OD NA UE WIN 9 OD NAME WIN — O OD NOAU EWN (OOO NOAUE Wit OO 


QPUPVUPV DPV LPVDVPVDVDV PUP LVLVLVLVPUSPVPVSVLTSIUSIUSVSVSIVSIUSUSUSIS USSSA SISSIES ~~ ES EE 


PaaS 


SOOCOOCOCOOOSOOOSOSOSOOOOOOOOOOSOOOOOOOOOCOOOOOOoOoOo 


Soooooooooo 
SOOOCOOCOCOoooooooo 


oooo 
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LVEC_ALL PREFIX,SERVICE,EFN,1IOSB 


,MACRO LVEC ALL PREF IX, SERVICE, EFN, 10SB,ALT_CHMK 
inp aE XES SERV ICE 
F NOT BLA 
NERROR 


SOCoCCOoOoOOOOoOoOoOoOOoSooSoo 


seal SYNCH NOT ALLOWED FOR ALL-MODE SERVICES 
7ENDM = LVEC_ALL 


1 
Macros for Loadable Services - SYS.SRCJICMODSSDSP.MAR; 1 (1) 
te IFF 
¢$ -ENDC 
4 TIF aw ALT_CHMK 
48 ICE ="PREFIX'KCASCTR 
2 sheets KCASCTR = PREFIX'KCASCTR + 1 
i SERVICE = ALT_CHMK 
§ ~ENDC 
33 -ENDM = LVEC_K 
2 3 
3 H : LVEC_E = Exec Mode Loadable System Service Vector 
009 38 3 LVEC_E PREFIX,SERVICE,EFN,10SB 
000 60 * 
$3 3 Oy ie nat ‘yt E * ey cata -EFN, 1OSB,ALT_CHME 
000 és se ChE SC. SERVICE = PREFIX*ECASCTR 
44 o? wren SERVICE = ALT_CHME 
9009 $9 CHME  #SERVICE 
4 68 - IF NOT_BLANK EFN 
0 283 PUSAL: #EFN 
4 0 PUSHL #10SB 
00 71 JMP a#EXESLDB_SYNCH 
4 i; oIFF 
000 7 RET 
33 at 
0 6 - IF BLANK ALT_CHME 
0 7 SERV VICE ="PREFIX"ECASCTR 
9 4 Ptah al ECASCTR = PREFIX*ECASCTR + 1 
8 5 SERVICE = ALT_CHME 
: [ENDM = LVEC_E 
4 
0 é LVEC_ALL = Mode of caller Loadable System Service Vector 
; | 
32 | 
38 | 
94 | 
95 
00 96 | 
| 
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v04-000 SYSTEM SERVICE VECTOR OEP INGE ON Breen oke Bosco? eee ee Teast eek, = Page 12, 
1118 .SBTTL SYSTEM SERVICE VECTOR DEFINITION 
1114 : 
1115 DEFINE ALL SYSTEM SERVICE VECTOR POSITIONS 
nie 
1 .PSECT $$$0000, QUAD, ABS 
7FFEDEOO 0000 11 _=*N7FFEDEOD ;BIASED IN P1 SPACE 
DEOO 1132 VECBASE: :VECTOR AREA BASE 
BED 113 
DE 1 5: Q10 AND WAIT COMPOSITE SERVICE 
FO 1 $ : THE Q10 AND WAITER COMPOSITE SERVICE OCCUPIES THE FIRST TWO 
DEOO 11 8 : SYSTEM SERVICE VECTOR POSITIONS. IT IS CONSTRUCTED 
DEOO 1139: FROM TWO DISCRETE CHMK INSTRUCTIONS, ONE PERFORMING THE O10 
DEOO 1140 : AND THE OTHER PERFORMING THE WAITF CH REL 
E00 1141 : COMPATIBLE ARGUMENT LISTS OF THESE fWO SERVICES. WAITFR HAS 
DEO 1148 : A SINGLE ARGUMENT, THE EVENT FLAG, WHICH IS THE FIRST ARGUMENT 
DEOO 1143 : IN THE QIO ARGUMENT LIST. 
BS Hes 
DEO 1146 GCOMPSRVB a10y QI10 AND WAIT 
DEOO 114 alo =Risk ! WAITER =Pask | CLREF MASK ! SETEF_MASK> 
DEOO 1154 GCOMPSRVE RESERVE 2 QUADWORDS FOR VECTOR 
Bie is 
pe! 1160 : CONDITION HANDLER DISPATCH VECTOR 
DEI 1168 : THE FOLLOWING VECTOR 1S INCLUDED IN THE SYSTEM VECTOR SPACE SO THAT BOTH 
DE10 1163 : HARDWARE-DETECTED (EXCEPTIONS) AND SOFTWARE-DETECTED (SIGNALS) CONDITIONS 
DE10 1164 : CAN BE DISPATCHED FROM THE SAME ACALE INSTRUCTION. THIS IS NECESSARY SO 
DE10 1165 : THAT THE STACK SEARCH ALGORITHM AND TH IND SYSTEM SERVICE CAN DETECT 
E19 1166 : AND PROPERLY PROCESS MULTIPLE ACTIVE SIGNALS AND/OR EXCEPTIONS. 
DE10 1168 ° 
DE10 1169 .ALIGN QUAD 
80000010 DE10 11 é SYSSCALL_HANDL == . = “X7FFEDEOO + *x80000000 
7FFEDE18 DEI 118 “BLKQ. 1 ;RESERVE SPACE 
pee 119 
Del 119¢ : COMMAND INTERPRETER DISPATCH VECTOR 
DE18 1194 : THE FOLLOWING VECTOR IS INCLUDED IN THE SYSTEM VECTOR SPACE SO THAT DIRECT 
DE18 1195 : CALLS CAN BE MADE TO THE CURRENT COMMAND INTERPRETER WITHOUT HAVING TO KNOW 
DE! 1196 : THE ADDRESS OF ITS SERVICE ROUTINE. 
ib Ug 
DE1 1199 .ALIGN QUAD 
DE! 120) SYSSCLI:: :COMMAND INTERPRETER DISPATCH 
7FFEDE20 DE18 1206 “BLKQ 1 TRESERVE SPACE 


Kk 3 
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DE20 1213; 

DE af ; DEFINE REMAINING SERVICES 

DE 1216 * 

DE2O 1 i3 GSYSSRV AD Rasch ;ADJUST OUTER MODE STACK POINTER 

DECO 1 18 RA, 555. R6>,- SREGISTERS R2=- 

DE2O 121 sae SEXCEPTION MAS 

DEOB 1220 GSYSSRV Sat TADJUST WORKING SET LIMIT 

DE28 1221 RA R5> SREGISTERS R2-R5 

DESO 1 : GSYSSRV A LEON SALLOCATE DIAGNOSTIC PAGE 

DE30 1 NS” Ri RS.R6,R7> SREGISTERS R2-R7 

DE3B 1226 GSYSSRV AL ALL C.k,4,° SALLOCATE DEVIC 

DE38 1205 R$, Rs, RS.R6> SREGISTERS R2-R 

DESO 1 é GSYSSRV A ScEF reek TASSOCIATE COMMON EVENT FLAG CLUSTER 

DE4O 1 R Ri ‘As R6, 6.07 RO RS Owen sREGISTERS R2-R11 

DEGB 1228 GSvssRV A sctiA :CONVERT TO ASCII TIME 

DE48 1209 ite a “age SREGISTERS R2-R6 

DESO 1230 GSYSSRV A Oe {GN K,4,- tASSIGN 1/0 CHANNEL 

DESO 1231 Bye _ es R6,R7,RB,RI_R10,R11> : REGISTERS R2-R11 

DES8 1 : GSYSSRV atti WALL ge :CONVERT TO BINARY TIME 

DES58 1 RS R4,R5.R6,R7,RB> REGISTERS R2-RB 

DE6O 1234 GSYSSRV cANeE ELK K,1,- [CANCEL 1/0 ON CHANNEL 

DE60 1235 R RA RS,R6,R7,RA> SREGISTERS R2-R 

DE68 1 36 GSYSSRV C Reta :CANCEL TIMER REQUEST 

DEGB 1 CRD RS - ay) RS> SREGISTERS R2- 

DE70 1 38 GSYSSRV CANWAK - CANCEL WAKE UP REQUESTS 

DE70 1 <R2,R3,R4,R5> SREGISTERS R2-R5 

DE78 1240 GSYSSRV CRM RAPS SC kK K,12 : CREATE AND MAP SECT 

DE78 1241 R3_R4 ge” R6,R7,RB.RI_R10,R11> REGISTERS R2-R11 

DE8O 1 4g GSYSSRV cL Pesan e 3,- [CLEAR HARD PARITY 

DEBO 124 <i RS, Rb RS> ;REGISTERS R2~ 

DE8B 1244 GSYSSRV CMEXEC.E,2,- + CHANGE MODE TO EXECUTIVE 

DE8BB 1245 5 Eg SREGISTER 

DE9O 1 46 GSYSSRV CMKRNL,K,2,- + CHANGE MODE TO KERNEL 

4344 i t GSYSSRV CCRer K,1 REGISTER RG FLA 

DES 1 28 <R2,R8,R4_RS> ‘REGISTERS R2-RSe SEE WAITFR COMMENTS. 

DEAO 1250 GSYSSRV CNT TRE EG.K K,4,- :CONTRACT REGION 

DEAQ 1251 R RA R5.R6.R7> :REGIST R7 

DEAB 125 GSYSSRV G Rear :GET PAGE TAB ABLE INFORMATION 

DEAS 1 3 Shoe R ath RS, R6,R7.RB, R9. R102 >REGISTER Ro-R10 

DEBO 1254 GSYSSRV CR Cog. *ALL ATE L "LOGICAL, NAR 

PER 1586 esvssay CaeAte eat R6_R7 RB> :REGLSTE MAILGOR® 

DEB 33 ieubited <ne RSA RA RS .R6.R7_RB_RO ZAI RIS *REGISTERS R2-R11 

DEC 1 38 ay: R “Ra RS.R6.R7_RB_RO, ati )i Bagg -REGISTERS R2-R11 

DECB 1260 GSYSSRV cn fva SCREATE feh nztke ADDRESS 

DECB 1261 ng Re RS.R6.R7.RB>,-: REGISTER 

th i 8g GSYSSRV cx RAGE RSA eOCTATE EVENT FLAG ¢ USTER 

DED 1264 sy aS'h Sy RS.R6.R7.RB_RO TTS ARE “REGISTERS R2-R1 

DED8 1265 GSYSSRV DAL COG K,2,- SDEACLOCATE. EVICE 

DEDS 1 6 RE-R4~RS,RB> TREGISTERS R2-R5,R8 

DEEO 126 GSYSSRV DA ASSGN.K,1,- :DEASSIGN 1/9 CHANNEL 

DEEO 126 Bye ay} RS.R6,R7.R8> REGISTERS R2-RB 

DEEB 126 GSYSSRV DCL AST CR 3° [DECLARE AST SYSTEM SERVICE 
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SREGISTERS R2-R 
FF ; GSYSSRV a DECLARE EXIT HANDLER 
oR35,R4> 3 = 
EE ; GSYSSRV oe (be’s L 3.5 [DELETE LOGICAL NAME 
DEFB 127% LY: R5°R6,R7,RB> REGISTERS R2-R8 
BFOO 157% ehbeee aK we TREGISTERS RoonS 
DF rg GSYSSRV DELPRC.K,2,- DELETE PROCESS 
F 127 <R RS Rd R5,R6,R7> SREGISTERS RO-RS 
OF 1 8 GSYSSRV DELTVA.K,3,- [DELETE VIRTUAL ADDRESS 
OF 1280 CRO LRS R4,RS,R6,R7>,- REGISTERS R2-R7 
at ae gaara 
fi i § —— 1 aS Re R5.R6.R7.RB.RO-RIOD *REGISTERS R2-R10 
OF 1284 GSYSSRV DLCONP.K, 43 : DEALLOCATE DIAGNOSTIC PAGE 
> 3 - 
eT 1 3 GSYSSRV aL ereee { et DELETE COMMON EVENT CLUSTER 
oF 1 § R RS Rd RS,R6,R7,.RB,RO_.R1IO,R11> ; REGISTERS R2-R11 
OF 1 GSYSSRV UPDSEC.K,6,- TUPDATE SECTION FILE 
DF 1 Hy <R RS RG RS,R6,R7,RB> :R2-RB 
F38 1290 GSYSSRV SNDERR.K,1,- :SEND MSG TO ERROR LOGGER 
4 8 1291 <R2,R3,R4,R5> :REGISTERS R2-R5 
tit ae 38 = A SREGISTER R4, ALWAYS ALLOWED! 
re i 94 GSYSSRV EXPREG,K,4,- [EXPAND PROGRAM REGION 
+ 1295 <R2,R3,R4,R5,R6,R7,RB> :REGISTERS R2-RB 
Oreo 3 uibannie CRE RS AE RS,RGAR7.RB,AO-RLORTIO.¢ REGISTERS RQ-RU1 7 
oreg 38 rr PRocRecns RS.R6.R7.R8.RO_R10.R11> :REGISTERS R2-R11 
Ore 1300 GSYSSRV FORCEX.K,3,- [FORCE EXIT 
Ore 1301 <R2,R3,R4,RS> SREGISTERS R2-R5 
DF68 1 08 GSYSSRV IMGSTA,ALL,6,~ IMAGE STARTUP 
ree - :SEND TO JOB CONTROLLER 
O70 1 Og “steep SRO R ee KS.RO.R7RBRORIO RIL SREGISTERS R2-R11 
DF78 130 GSYSSRV GETTIM.E,1,- IGET TIME 
1 89 o ‘NO REGISTERS 
ats 1308 GCOMPSRVB UPDSECW,- [UPDATE SECTION AND WAIT 
DF 89 1309 <UPDSEC_MASK ! GETJPI_SYNCH_MASK> te 
DF8O0 1317 GCOMPSRV ; Stine 
re i i8 vetted aN were SREGISTERS R2-R5S EN 
ro 0 GSYSSRV IMGACT.E,8,- [IMAGE ACTIVATION EN 
a ae 1 Ins R3.R4,R5,R6,R7,RB,RI-R10,R11> sREGISTERS R2-R11 EN 
384 i GSYSSRV LCKPAG.K,3,- [LOCK PAGE IN MEMORY EN 
Ore 1 Q <R2 ag hd R5,R6,R7,RB> :REGISTERS R2-R EN 
rR 1324 GSYSSRV LKWSET.K,$,- SLOCK PAGES IN WORKING SET EN 
OFA 1325 <R2,R3.R4,R5,R6,R7,RB> :REGISTERS R2-R8 eX 
BFA GSYSSRV MGBLSC.K,?,- ‘MAP GLOBAL SECTION GE 
BFA : 5 aes aS Rd RS,R6,R7,RB,RI_R1IO,R11> ;REGISTERS R2-R11 GE 
Ore 1 GSYSSRV PURGWS.K,1,- : PURGE WORKING SET GE 
Ore 1 § <R2 Ra Rs RS.R6,R7.RB> :R2-R GE 
Sh Ty SU RII te agsareFepetstalieS pment 
pre : GSYSSRV sngora‘e i. i SEND mSG TO OPERATOR oad GE 
BFE 1 6 SRO ORS RA RS ROWR7.RBLROR 0,R11> sREGISTERS R2- 
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GSYSSRV 019.41 NG 10 Re 
RS, ey RS,R6,R7,R8B, Rd R R11> :RE RS R2-R11 
GSYSSRV READEF .K EVENT FL 
CRO RS RG kS> ERS R2- 
GSYSSRV RE UM b,- E 
R3,R4,R5> 


GSYSSRV RUNDWN, - ; 
<R2,R3,R4,R5,RO,R7> ; 


GSYSSRV SN mB.E 
Hote RA RS.R6.R7_RB, RO, 


GSYSSRV § 
2 ns: nd Xs R6,R7,R8, Ro 
GSYSSRV § 


GSYSSRV § 
GSvSsRV § 


GSYSSRV § 

2,R. M RS,R6.R7_RB, Rd 
GSYSSRV § 

2,8. nd R5> 


GSYSSRV § 
2,5. Ri RS.R6.R7_RB. Ro 
GSYSSRV § TPR] .K K,4,- 
“Rd RS 5> 
GSYSSRV SE hese T-kK 
2,R3, a3) RS.R6.R7_RS, Rd 
GSYSSRV SETRWM.K,1,- 


Sf 
GSYSSRV 

<R4> 
GSYSSRV 


< 

GSYSSRV 
GSYSSRV CoG. 

Ré RS R6.R7.RB> REGISTER $ R 
GSYSSRV U KPAG.K NLOCK PAGE FROM MEMORY 

RA RS.R6.R7,RB> tREGISTER $ R2-R 
GSYSSRV U Recht S UNLOCK PAGE FROM WORKING SET 
acess 2 Uae és. Rh RS.R6R7.RB> :REGISTER SR 


NWIN e° WIND PROC DURE CALL STACK 
une R Re 
GSYSSRV WAITER 
<R2,R3 


Sao xm 


iR 
;R E 
WN 
R2-R7 
M O SYMBIONT MANAGER 
REGISTERS R2=-R11 
U ow Pp 


“R9 
te SERVICE 
5 R5 


Mk COe-Oe 
nonw 
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nG 
Moats 43 WAITFR COMMENTS. 
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sREGISTERS R2-R11 
PR ORITY 


— 


PROTECTION 

RCE WAIT MODE 

R_R4 
EM SERVICE FAILURE MODE 

R_R4, AND EXECPTION MASK 

ses} SWAP MODE 

ND PROCESS 


RS R2=-R5 
LATE "tS ge NAME 
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R2-R6. IF RB IS EVER USED 

YCHRONI ZATION CODE MUST BE 

GSYSSRV WAKE,K Fae accra 
<R2 a3: ey RS> -R5 

GSYSSRV WF AND: k,2,- 6 ICAL AND OF EVENT FLAGS 
R3Rd, RS .R6> R2-R6 

GSYSSRV orton ge OGICAL OR OF EVENT FLAGS 

% R R5- R6> 


GSYSSRV BR ts TO TERMINALS 
Lage *R6> : -R 
GSYSSRV ci 3 $- : HANGE MODE HANDLER 
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EOAO 1391 <R4> TSAVE R4 

EOA8 1 36 GSYSSRV SETPFM,K,4,- ist PAGE FAULT MONITORING 

EOAB 139 <R2 R3.R4 RS RO, R7,R8,R9.R10,R11> sREGISTERS R2-R11 

EOB 1394 GSYSSRV GETASG.ALL . :GET MESSAGE 

E0BO 1395 <R2,R3,R4,R5.R6,R7,RB,RI,R1I0,R11> :REGISTERS R2-R11 

E0B8 1 96 GSYSSRV DERLMB.K,1,- : DECLARE ERROR 06 MAILBOX 

EB 139 <R2,R3.R4,R5> SREGISTERS R2-R 

€0CO 1 98 GSYSSRV CANEXH.K,1,- SCANCEL EXIT HANDLER 

E0CO 139 <R2,R3,R4,R5> ZREGISTERS R2-R5 

EOC8 1400 GSYSSRV GETCHN.K,5,- [GET CHANNEL INFORMATION 

E0CB 1401 <R2,R3,R4,RS,RO,R7,RB,RI-R10,R11> REGISTERS R2-R11 

EOD 1408 GSYSSRV GE JOEY. §.- iGET Device INFORMATION 

EODO 14 <R2,R3,R4,R5,RO,R7,RB,RI-R1I0O,R11> : REGISTERS R2-R11 

EODB 1404 GSYSSRV GET IPL.K ?,- :GET JOB PROCESS INFORMATION 

EOD8 1405 <R2,R3,R4,R .R6,R7.RB, R9°R10,R11> :REGISTERS R2-R11 

EQEO 1406 GSYSSRV PUTASG, ALL - :PUT FORMATTED ERROR MESSAGE 

EQEO 140 <R2,R3,R4,R5.RO,R7,RB,RI_R10,R11> sREGISTERS R2-R11 

EOES 1408 GSYSSRV EX MSG. ALL ges [OUTPUT EXCEPTION SUMMARY MESSAGE 

EOE8 1409 <R2,R3,R4,R5.RO,R7,RB,RI-R10,R11> sREGISTERS R2-R11 

EOFO 1410 GSYSSRV SNDACC.E,2,- 'SEND MSG fo ACQUNT ING MANAGER 

EOFO 1411 <R2,R3,R4,R5,RO,R7,RB,RI_-R10,R11> sREGISTERS R2-R11 

EOF8 1618 GSYSSRV SETINE .k {,- 'SET SYSTEM TIME 

EOF8 141 <R2,R3,R4,R5,R6,R7,RB,RI-R10,R11> ;REGISTERS R2-R11 

E100 1414 GSYSSRV SETPRV.K,4,- 'SET PRIVILEGES 

E100 1415 <R2,R3,R4,R5,R6,R7,R8> :REGISTERS R2-R 


SRS tag ae BR scces Ra eins ons Sear eS Ak RS ieee 
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E1 1417 ; 
e| 1813 : SPECIAL VECTORS FOR AST DELIVERY AND CLEARING 
eI 16 ! : SYSSCLRAST CLEARS THE CURRENTLY ACTIVE AST STATUS 
E1 14 g ; SYSSGL_ASTRET CONTAINS THE VALUE OF THE RETURN ADDRESS FROM 
E1 1423 ; THE CACL INSTRUCTION USED TO DISPATCH AN AST. THIS VALUE CAN 
18 1? 2 3 BE USED WHEN SEARCHING UP THE STACK FOR THE AST CALL FRAME. 
Ej 1429 -PSECT $$$0000,QUAD 
E1 14 : ALIGN QUAD 
£1 1435 SYSSCLRAST:: ;CLEAR ACTIVE AST 
7FFEE110 €1 14 § -BLKL 2 ; 
E110 144 ALIGN QUAD : 
E110 1445 SYSSGL_ASTRET:: : 
7FFEE114 £110 1666 BLK 
E114 1447 SYS$GL_COMMON:: ADDRESS OF CORE COMMON DESCRIPTOR 
7FFEE118 £114 1448 ~BLKL 3 
Elie 1488 
E118 1456 ; ENTRY VECTOR FOR CONDITION HANDLER SEARCH. LIBSSIGNAL USES THIS VECTOR 
E118 1457 ; TO SHARE EXCEPTION'S CODE TO SEARCH FOR AND CALL CONDITION HANDLERS. 
aie 1338 ; THIS ENTRY IS NOT CALLED; RATHER, IT IS JUMPED TO. NO RETURN IS MADE. 
E118 1460 
E118 1461 ALIGN QUAD 
E118 1463 SYSSSRCHANDLER:: 
7FFEE120 £118 1467 -BLKQ 1 RESERVE SPACE 
Hg 1th 
E120 147¢ ; NOTE THAT THE CODE IN PSECT $$$000 AT THIS POINT CANNOT EXCEED 320 (HEX) 
£120 1473 ; WITHOUT MODIFYING THE RMS SYNCHRONIZATION CODE WHICH PRECEDES THE RMS 
E120 1474 ; VECTORS WHICH CANNOT BE MOVED. 
£120 1475; 
E120 1476 
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; Set up the base for the RMS service codes. We leave a hole so that 

3; other ezes mode system services can be defined later in this gnoquse. 
3; The hole is defined by the offset between ECASCTR and RCASCTR; it 

; is checked with an ASSUME at the end of all service definitions. 
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RMS SERVICES 


RMS SYNCHRONIZATION ROUTINE 


THE FOLLOWING ROUTINE IS USED BY THE VARIOUS RMS SERVICES IN ORDER 
TO AWAIT 1/0 COM Or Eat ep one ROUTINE IS IN THE VECTOR AREA IN ORDER 
TO WAIT AT THE CALLER'S M se ALLOWING AST ACTIVITY FOR EITHER 


USER OR SUPERVISOR MODE, OR sor 


THE FAB/RAB IS CHECKED FOR A LEGAL BLOCK ID AND 
AN ERROR RETURNED IF INVALID. THE STRUCTURE tg Nor Aalpacets. 


edt a EACH RMS SERVICE VECTOR TERMINATES WITH A BRANCH TO THIS 


THIS ROUTINE ASSUMES THAT THE FOLLOWING REGISTERS HAVE geen SET BY THE 
EXITING RMS EXEC“-LEVEL CODE WHENEVER A STALL IS REQUIRED 


R3 EFN TO WAIT ON 

/FAB_ADDRESS TO WAIT ON 

SWAIT BR ENTRY POINT ONLY, ert SERVICE) FLAG FOR WAIT TYPE 
= SAME RAB, 1 = DIFFERENT RABS) 


-PSECT $$$0000, QUAD 

-BLKB Me ie -~VECBASE> 
:THIS TAKES THE SPACE OF THE CODE 

;WHEN GENERATING THE GLOBAL SYMBOLS 


Saat ees e 
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F1g8 1652 

3 ! ; DEFINE RMS SERVICES 

£168 1629 : 

Bie 18 9 ; HIGH USE RECORD OPERATIONS 

£18 16 § RMSSRV DELETE ;DELETE A RECORD 

E1 16 »NLIST CND 

E17 1634 RMSSRV FIND 3FIND RECORD 

E17 1635 RMSSRV FREE RELEASE LOCK ON ALL RECORDS 

18 16 § RMSSRV GET iGET A RECORD 

E1 16 RMSSRV PUT :PUT A RECORD 

E19 1638 RMSSRV READ ;READ A BLOCK 

E198 1639 RMSSRV RELEASE ;RELEASE LOCK ON ati: RECORD 

dy 1640 RMSSRV UPDATE sREWRITE EXISTING RECOR 

E1A8 164 RMSSRV WAIT ‘STALL FOR RECORD OPERATION COMPLETE 

34 192 RMSSRV WRITE :WRITE BLOCK 

hy 1628 ; LOWER USAGE OPERATIONS 

—188 1936 RMSSRV CLOSE ;CLOSE FILE 

3h} 165 RMSSRV CONNECT ; CONNECT RAB 

E1C 1658 RMSSRV CREATE ;CREATE FILE 

E1D0 1659 RMSSRV DISCONNECT ;DISCONNECT RAB 

E1D8 1660 RMSSRV DISPLAY sDISPLAY FILE INFORMATION 

343 1661 RMSSRV ERASE sERASE (DELETE) FILE 

E1E 1906 RMSSRV EXTEND sEXTEND FILE ALLOCATION 

E1FO 166 RMSSRV FLUSH sFINISH I/0 ACTIVITY FOR STREAM 

E1F8 1664 RMSSRV MODIFY ;MODIFY FILE ATTRIBUTES 

E200 1665 RMSSRV NXTVOL ;NEXT VOLUME 

E208 1666 RMSSRV OPEN ;OPEN FILE 

E210 1667 RMSSRV REWIND sREWIND FILE 

E218 1668 RMSSRV SPACE sPOSITION FOR TRANSFER 

E220 1669 RMSSRV TRUNCATE TRUNCATE FILE 

E228 1670 RMSSRV ENTER sENTER FILENAME INT IRECTORY 

E2 : 1671 RMSSRV PARSE sPARSE FILENAME SPECIFICATION 

ES? 1976 RMSSRV REMOVE ;REMOVE FILENAME F DIRECTORY 

E240 167 RMSSRV RENAME ,NARG=4 a Pr A FILE 

E248 1674 RMSSRV SEARCH RCH A FILE DIRECTORY 

E250 1675 RMSSRV SETDDIR,NARG=3, wostncss 

E25 1976 gSEI DEFAULT OI curel STRING 

E258 167 RMSSRV SETDFPROT,REGS=<R2,R3>,NARG=2 

E26 1678 SET D ofr AULT fire PROTECTION MASK 

£260 167 RMSSRV SSVEXC,REGS=<> .NOSYNC 

E268 1680 GENERATE SYS SERV EXCEPTION 

E 8 1681 RMSSRV RMSRUNDWN,NARG= 2: NOSYNC=1 

E 16 ; PERT ORM RUNDOWN ON RMS FILES 

E270 16 RMSSRV RMSRUHNDLR, nares NOSYN C=1 

E278 1684 M Recovery Unit Handler 

E27 1685 RMSSRV FILESCAN,NARG=3, Nos¥nc= 

: 19 § :Perform syntax check for file specs 

} 19 8 3; ADD NEW RMS SERVICES IN FRONT OF THIS CODE! 

E 1690 ; Now we add special non-vector code. Because of the CASE instruction 

E 1691 ; used at the front of RMS, this code (and any future additional code) 


SYSSP1_VECTOR 
v04-000 


7FFEE3CO 
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E 1636 3; must be the Last element of the RMS area. 

ESS gon | 

E 1898 GCOMPSRVB Helper branch to error processing 

. 1704 GCOMPSRVE 1 

Bn i 

E 17 8 : NOTE RMSVECEND MARKS THE END OF THE CURRENTLY DEFINED RMS VECTORS. 

E 1709 ; SSVECREG2 MARKS THE START OF THE SECOND REGION OF SYSTEM 

£ 1710 ; SERVICE VECTORS. THERE IS EMPTY SPACE BETWEEN THESE REGIONS 

7 1711: FOR FUTURE RMS VECTORS. IF NECESSARY, THIS SPAC AN AL 

E Wig ; BE USED FOR SYSTEM SERVICE VECTORS BY BACKING UP SSVECREG 

a 1713; (TOWARDS THE RMS VECTORS) AND ADDING NEW SYSTEM SERVICE VECTORS 

E 1714 : BEFORE THE ALREADY DEFINED ONES. OTHER WORDS, THESE T 

E 1715 : VECTOR REGIONS MAY GROW TOWA ER. IF 

: . at 3 AN ASSEMBLY ERROR IS GENERAT 

£288 1719 .PSECT $$$0000,QUAD 

£288 1723 

ia 88 1724 RMSVECEND: 

£288 1725 .=VECBAS +*X5C0 

E c0 7 $ SSVECREG2: ; START OF SYSTEM SERVICE VECTOR REGION 2 


IN 
RDS EACH OTHER. fHEY COLLIDE, 


SYSSP1_VECTOR 
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~SBTTL REGION 2 OF SYS. SERV. VECTOR DEFINITIONS 


Note: Service codes for exec mode services in this region are 
tyserves by the offset defined above between RCASCTR and ECASCTR. 
a Ft, at the end of this section breaks, the offset must 


Sete Ge Ge Ge te 


GSYSSRV eng eg! 
GSYSSRV DEQ, 
GCONPSRVE. Fi 


ir R4,R5,R6,R7.RB_RI, ‘RO, WEE REGISTERS R2-R11 
2 RS, RG .RS.R6,R7.RB,RO_RI REGISTERS R2-R11 
E inp WAIT 

O MASK ! WAITFR_MASK iL 
GCOMPSRV gen 

GSYSSRV SETSSF, kK 1,- 
GSYSSRV SEISTE, K,3 

“Rid” 


! SETEF K> 
"auabuo WORDS F FOR VECTOR 
M SERVICE FILTER MASK 


Be Sete ees 
—DADNrDNBOM——-o 
om 


RMATION 
GISTERS R2-R11 
GSYSSRV atan ALL 0. IMAGE TADbRESS RELOCATION FIXUP 
»R5> : REGISTE 
a. W aak ie _2.° j eeteareeeee mee eeeeeerene 
> 


GCOMPSRVE 1 ; set DEVICE TEMP xeeenenaee 
GSYSSRV i thet Fi «K,8,- eer VICE AND youre ++ mabe 
R4,RS,R6,R7_RB, RO, R1 nti> REGISTERS R2-R1 
GCOMPSRVB “se tovt - GEf DEVICE INFORMATION AND WAIT 
<GETDVI_MASK ! GETJPI _SYNCH E MASKS 


GCOMPSRVE 
GCOMPSRVB GET IPI - GET JOB/PROCESS INFORMATION AND WAIT 
<GETJPI_MASK ! GETJPI _syiicH _MASK> 

GCOMPSRVE o 

GCOMPSRVB GETSYIW~ GET SYSTEM INFORMATION AND WAIT 
ea yecet SY Ask ' GETIPI _SYNCH “MASK> 

GCOMPSRVB SND JBC SEND TO JOB CONTROLLER AND WAIT 

is <SND -nisk ! GETUPI _syivcH “MASK> 


PSRVE 

saat * sywcn.- - Aer et A AND I0SB 
WAITFR_MASK ! CLREF AHASk H SETEF 

GCOM PSRVE RESERVE” QUADWORDS FOR VECTOR 

GSYSSRV ae o3e° i GE NERATE A SECURITY ERASE PATTERN 


: SAVE 

GSYSSRV cR LNT, LOGICAL NAME T ABLE 
oR3, RA BS. R6.R7.RB_.RI. ‘aide a > :REGISTERS R2-R1 

GSYSSRV cr ina: k grate LOGICAL 
oR3, Ri R5.R6.R7_RS, Rd, R10,R11> :RE 

GSYSSRV D 

GSYSSRV TRNLNA, x 


DESL: K : DELET 
R3_RG_RS.RG.R7_RS, Rd, R10,R1 ‘, -RE 
TR NSLA ATE L 
<R2,R3_RG_RS.RO.R7_.RE_RI, “R10 Ri1> :RE 
GSYSSRV GETCK *K ig N 
“Rd, AS. R6,R7_RB, nv, R10,R11> RE 
GCOMPSRVB wee GEf LOCK’ IN 


CDOWDMODOOCOCOCOCOCWDMDOOMOWBDOOCMBDOOCMBDOOCOBDOCOOOOOCOOOO 
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2.0000.00 09 00 Cd Gd Cd 0d G9 Cd CD. 0D Cd CD CD CD 


PNR PW ae as 


D WAIT 
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lon'S OF S1S< SERV: VECTOR DEFINITION SeSEP=198C OS:40:87 LevgveRcTERODSSDSP RAR; 1 | 
SYpeE) VECTOR REGION 3 OF SYS~ SERV. VECTOR DEFINITION Se CARE MAS SET 
aon 187 gCETLET_BASK ¢ WAITER MASK SERVE 2 QUADUORDS. FOR VECTOR 
Sy ant 143 GCOMPSRVE "2 ee | 
ea: sop miGtL TO IEMTUTLES cou 
£48 9 GSYSSRV che RS at Rees. RO, »R7,RB,R9, at hl) 5 CONTEXT STREAR | 
E4BS 1891 GSYSSRV a zR4, 2A: R6,R7,R8,R9_R RIO.ATI> REG ASCIT CONVERSION | 
CR been ce emer nuiee te 
tER 1898 Kelle RS R2-R11 | 
Ecc 1898 GSYSSRV ani th te? R546, R7,RB,R9, RI Rat bed e TERS R2-R11 
RANT ee” - 
E200 | x cae Hou TDeNf iF fer FROM PROCESS 
E4D 5 GSYSSRV RE EVOKID, ALL,5.= EISTERS Reon iad 
EAD : 50 uke GENERA proves tion cx ck ROU 
Testo SE nr nn ae 
E4e8 1908 cconPsnvi) BRE Tu MASK ! GETJPI_SYNCH.MASK> 
EGER 1913 SavE EUE INFORMATION 
4EB 1913 GCO :GET au peat 
Bee BR ILA a. nL RI 
E50 1316 seo wy TRASK ! GETUPI_SYNCH MASK> 
£50 1336 GCOMPSRVE ve 
FSKCASCTR = 
00006028 E310 1949 CJ i gee 
F510 1931 | LDBSRV CJFS, ALLJDR, > SS 
Bs 1988 LDBSRV CUES; CONUIC, K,  <h4> 
; CJFS, CREJNL . 
Cr 
ER78 1989 LDBSRY CUES. DEASYNLCINT, K. R4> 
Rtg 198 [DBSRV CIPS, DECINGS” KL <RG 
ERR 1980 LDBSRV CIES; DATIND; =» KL <RGD 
E238 1940 LDBSRY CJFS. DSPINL: = 
F500 1941 LDBSRV CIFS. GETJNL., ao 
E960 194 LOBSRY CUPS. GETRUI, cap 
590 1948 LDBSRV CUES. RODFLT: - 22 
3h 1945 LDBSRY CAFS. READIN, K.  <Ro> 
ER DBSRY CJFS, RECOVER, —K, <R4> 
E308 1949 [DBSRV CJFS, MNTJMD.” —K: 4> 
HS 194 LDBSRV CUES. CRENUV Ke <R4> 
ESA0 1949 LDBSRV CUES, CONINLE, = K,<R4D ea Ti 
Ga US ERR SEE FERRE) as ans a tg a at 
FeB8 1982 LDBSRV CUES, FORCEJNLU, at? ons’ CRGAS “RARER ‘RO'AIO:RIL> 
ESCO 1988 CDBSRY CUES, WRITEINLY, ALL. CROCRS.RGIRS-RO-R?-RE-RORIO. 
Ha 1 RY ae ead, eae 
Sr | HRY GWE: Bind. Eg. natin 
ESF 1988 LDBSRY CJF$, POSJNLW, K, <R4>, 4, 3, 
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E60 1959 LOBSRV CJF$, READJNLW, K, <R4>, 4, 5, READJNL 

Ee 1366 LDOBSRV CJFS$, RECOVERW, K,  <R4>, 5, 6, RECOVER 

E6 1962 ; 

00004010 ee i ; RUFSKCASCTR = 16400 

E608 1965 ° LDBSRV RUF$, REENTERRU,  K, <R2,R3,R4,R5,R6> 

E6 196 LDBSRV RUF$, PHASE1, K, <R2,R3,R4,R5,R6> 

E64 1398 LDOBSRV RUFS$, PHASE » <R2,R35,R4,R5,R6> 

£64 196 LDBSRV RUF$, CANCELRU K, <R2.R3.R4,R5.R6> 

E63 19 p LDBSRV RUF$, MARKPOINTRU, K. <R2.R3.R4.R5.R6> 

E 197 LOBSRV RUF$, RESETRU, » €R2,R3,R4,R5,R6> 

E66 1376 LOBSRV RUF$, DCLRUH, K, <R2,R5,R4,R5,R6> 

£08 197 LOBSRV RUF$, CANRUH, K, <R2,R3,R4,R5,R6> 

us WOR ; LOBSRV RUFS$, RUSTATUS, K, <R2,R3,R4,R5,R6> 

E67 1308 > End Recovery Unit consists of a two-phase commit, so we call each 

3u 130 : phase separately. 

be? 1979 : econrenye ENDRU, <PHASE1_MASK ! PHASE2_MASK>, RUF$ ; End Recovery Unit 

£688 1991 GSYSSRV MTACCESS,K,6,- 7Mag tape installati ifi ti 

a 1998 CRAKE RECRSRG.ATRBAOMIOLRTTS URERtSTene ORT] te ccess rou 

53 128 

34 1995 : End of system service vector definitions. New system services are 

E690 1996 ; to be added at this point. 

£690 1997 ; 

E690 2003 
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£690 2269 
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Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 

. ABS 00000000 <¢ 8? 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
ABS$ 0000000 ( ) 4 ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 

$$$0000 FFEE690 (eeeee,) Q2 ( 2.) NOPIC USR CON ABS LCL NOSHR EXE RD 
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Performance indicators H 
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Phase Page faults CPU Time Elapsed Time 
Initialization 35 88:80:00. Oe 00:00:01.89 
Command processing 117 00:00:00.81 00:00:07.40 
Pass 597 00:00:20.90 00:01:22.01 
Symbol table sort 0 00:00:02.16 00:00:05.76 
Pass 2 207 00:00:05.87 Bp 80761 08 
Symbol table output 35 8800.00: 8s 0:00:01.41 
Psect synopsis output 3 00:00:00.02 00:00:00.43 
Cross-reference output 0 B86 86 Re 00:00:00.00 
Assembler run totals 996 00:00:30.0 00:01:59.98 


The working set Limit was 2250 pages. : 

183693 bytes (359 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1356 non-local and 0 local symbols. 
347 source Lines were read in Pass 1, produc ing 18 object records in Pass 2. 

43 pages of virtual memory were used to define 59 macros. 
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; Macro Library statistics H 


Macros defined 


Macro Library name 


_-$255$DUA28: CSYS.OBJILIB.MLB; 1 6 
55$0UA28: CSYSLIBISTARLET.MLB;2 18 
TOTALS (all Libraries) 24 


1204 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 
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